home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE06 / INTERNAL / TESTFORM.DFM / TESTFORM.txt
Encoding:
Text File  |  1995-12-17  |  3.1 KB  |  150 lines
  1. object Form1: TForm1
  2.   Left = 266
  3.   Top = 174
  4.   BorderStyle = bsDialog
  5.   Caption = 'Testbed Program for DOSInfo Unit'
  6.   ClientHeight = 237
  7.   ClientWidth = 308
  8.   Font.Color = clWindowText
  9.   Font.Height = -12
  10.   Font.Name = 'Arial'
  11.   Font.Style = []
  12.   KeyPreview = True
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   OnKeyPress = FormKeyPress
  17.   TextHeight = 15
  18.   object GroupBox1: TGroupBox
  19.     Left = 9
  20.     Top = 12
  21.     Width = 280
  22.     Height = 101
  23.     Caption = ' Floppy Disk Info Test  '
  24.     Font.Color = clBlack
  25.     Font.Height = -12
  26.     Font.Name = 'Arial'
  27.     Font.Style = [fsBold]
  28.     ParentFont = False
  29.     TabOrder = 0
  30.     object Label1: TLabel
  31.       Left = 13
  32.       Top = 24
  33.       Width = 171
  34.       Height = 15
  35.       Caption = 'Number of Floppy Disk Drives: '
  36.       Font.Color = clBlack
  37.       Font.Height = -12
  38.       Font.Name = 'Arial'
  39.       Font.Style = [fsBold]
  40.       ParentFont = False
  41.     end
  42.     object Label2: TLabel
  43.       Left = 13
  44.       Top = 48
  45.       Width = 140
  46.       Height = 15
  47.       Caption = 'First Floppy Disk Drive is:'
  48.       Font.Color = clBlack
  49.       Font.Height = -12
  50.       Font.Name = 'Arial'
  51.       Font.Style = [fsBold]
  52.       ParentFont = False
  53.     end
  54.     object Label3: TLabel
  55.       Left = 13
  56.       Top = 72
  57.       Width = 158
  58.       Height = 15
  59.       Caption = 'Second Floppy Disk Drive is:'
  60.       Font.Color = clBlack
  61.       Font.Height = -12
  62.       Font.Name = 'Arial'
  63.       Font.Style = [fsBold]
  64.       ParentFont = False
  65.     end
  66.     object FlopTypeB: TLabel
  67.       Left = 189
  68.       Top = 72
  69.       Width = 58
  70.       Height = 15
  71.       Caption = 'FlopTypeB'
  72.       Font.Color = clBlack
  73.       Font.Height = -12
  74.       Font.Name = 'Arial'
  75.       Font.Style = []
  76.       ParentFont = False
  77.     end
  78.     object FlopTypeA: TLabel
  79.       Left = 189
  80.       Top = 48
  81.       Width = 57
  82.       Height = 15
  83.       Caption = 'FlopTypeA'
  84.       Font.Color = clBlack
  85.       Font.Height = -12
  86.       Font.Name = 'Arial'
  87.       Font.Style = []
  88.       ParentFont = False
  89.     end
  90.     object FlopCount: TLabel
  91.       Left = 189
  92.       Top = 24
  93.       Width = 57
  94.       Height = 15
  95.       Caption = 'FlopCount'
  96.       Font.Color = clBlack
  97.       Font.Height = -12
  98.       Font.Name = 'Arial'
  99.       Font.Style = []
  100.       ParentFont = False
  101.     end
  102.   end
  103.   object GroupBox2: TGroupBox
  104.     Left = 9
  105.     Top = 124
  106.     Width = 280
  107.     Height = 99
  108.     Caption = ' Volume Label Test '
  109.     Font.Color = clBlack
  110.     Font.Height = -12
  111.     Font.Name = 'Arial'
  112.     Font.Style = [fsBold]
  113.     ParentFont = False
  114.     TabOrder = 1
  115.     object Label4: TLabel
  116.       Left = 13
  117.       Top = 28
  118.       Width = 78
  119.       Height = 15
  120.       Caption = 'Current Drive:'
  121.     end
  122.     object Label5: TLabel
  123.       Left = 13
  124.       Top = 62
  125.       Width = 80
  126.       Height = 15
  127.       Caption = 'Volume Label:'
  128.     end
  129.     object DriveList: TComboBox
  130.       Left = 100
  131.       Top = 27
  132.       Width = 84
  133.       Height = 22
  134.       Style = csDropDownList
  135.       ItemHeight = 15
  136.       TabOrder = 0
  137.       OnChange = DriveListChange
  138.     end
  139.     object TheLabel: TEdit
  140.       Left = 100
  141.       Top = 60
  142.       Width = 121
  143.       Height = 22
  144.       MaxLength = 11
  145.       TabOrder = 1
  146.       OnKeyPress = TheLabelKeyPress
  147.     end
  148.   end
  149. end
  150.